Amiga Games 1996 July/Amiga Games 1996 #7.iso/leser-forum/sebastianbrylka/funtime_install

Text File | 1995-09-04 | 4KB | 199 lines

;Installation der Fun Time auf die Festplatte mit dem Installer

(PROCEDURE MasterProc
                  (SET isitfile
                        (EXISTS
                            (othername)
             (NOREQ)
             )
             )

            (IF
            (= isitfile 2)
            (MAKEDIR fullname)
            (IF
            (EXISTS fullname)

            (
            (SET version
            (GETVERSION
            (fullname)
            )
            )
            (IF
            (< version
            (GETVERSION
            (othername)
            )
            )
            (COPYFILES
            (SOURCE othername)
            (DEST destname)
            )
            (WORKING
            (CAT othername " wird nicht kopiert.")
            )
            )
            )
            (COPYFILES
            (SOURCE othername)
            (DEST destname)
            )
            )
            )
)

(USER 2)

(SET #msg
            (CAT "\nInstallation der Fun Time.\n\n"
                 "Wie ich sehe haben sie sich dafür entschieden\n"
                 "die Fun Time auf die Festplatte zu installieren.\n"
                 "Um die Installation ohne Probleme zu durchführen,\n"
                 "befolgen sie die Folgenden Anweisungen.\n"
                 "Wählen sie für die Fun Time ein verzeichniss\n"
                 "ein Unterverzeichnis wird automatisch angelegt.\n\n"
                 "Ich hoffe das es funktionieren wird."
            )
)

(SET Wiedersehen "Installation komplett.")

(MESSAGE #msg)

(WELCOME)

(ASKDISK
            (PROMPT "Legen sie die Fun Time ins Laufwerk !")
            (DEST "FUN_TIME")
            (HELP "Um die Installation zu starten müssen sie die Fun Time Diskette "
                  "ins Laufwerk legen.Danach erfolgt die ganze Installation "
                  "fast automatisch.Das einzige was sie machen müssen ist "
                  "ein Verzeichniss wählen in das die Fun Time installiert "
                  "werden soll.\n\n"
                  "Ein Unterverzeichniss wird Automatisch angelegt.")
)
(Complete 5)
(SET @default-dest
            (ASKDIR
                    (PROMPT "Wählen sie ein Verzeichniss für die Fun Time:")
                    (HELP "In diesem Verzeichniss wird die Fun Time installiert.")
                    (DEFAULT @default-dest)
            )
)


(SET @abort-button "Stop !")

(WORKING "Ich erzeuge ein Verzeichnisse.")

(SET Ziel
            (TACKON @default-dest "FUN_TIME")
)

(MAKEDIR Ziel)
(Complete 10)
(COPYFILES
            (SOURCE "FUN_TIME:ICONS/KASTEN.info")
            (DEST @default-dest)
            (NEWNAME
                        (CAT Ziel ".info")
            )
)

(SET Ziel
            (CAT Ziel "/")
)

(MAKEDIR
            (CAT Ziel "BILDER")

)

(MAKEDIR
            (CAT Ziel "MODULES")
)

(MAKEDIR
            (CAT Ziel "c")
)

(COMPLETE 20)
(WORKING "Kopiere Modules.")

(COPYFILES
            (SOURCE "Fun_Time:Modules/")
            (PATTERN "#?")
            (DEST
                    (CAT Ziel "Modules/")
            )
)
(COMPLETE 35)
(WORKING "Kopiere Bilder.")

(COPYFILES
            (SOURCE "Fun_Time:Bilder/")
            (PATTERN "#?")
            (DEST
                    (CAT Ziel "Bilder/")
            )
)
(COMPLETE 45)
(WORKING "Kopiere Befehle.")

(COPYFILES
            (SOURCE "Fun_Time:c/")
            (PATTERN "#?")
            (DEST
                    (CAT Ziel "c/")
            )
)
(COMPLETE 50)
(WORKING "Kopiere restliche Files.")

(COPYFILES
            (SOURCE "Fun_Time:FunTime_Magazin.info")
            (DEST Ziel)
)
(COMPLETE 55)
(COPYFILES
            (SOURCE "Fun_Time:FunTime_Magazin")
            (DEST Ziel)
)
(COMPLETE 60)
(COPYFILES
            (SOURCE "Fun_Time:FunTime.Guide.info")
            (DEST Ziel)
)
(COMPLETE 70)
(COPYFILES
            (SOURCE "Fun_Time:FunTime.Guide")
            (DEST Ziel)
)
(COMPLETE 80)
(COPYFILES
            (SOURCE "Fun_Time:FunTime_INFO.info")
            (DEST Ziel)
)
(COMPLETE 90)
(COPYFILES
            (SOURCE "Fun_Time:FunTime_INFO")
            (DEST Ziel)
)
(COMPLETE 95)
(COPYFILES
            (SOURCE "Fun_Time:DemoService.info")
            (DEST Ziel)
)

(COMPLETE 99)
(COPYFILES
            (SOURCE "Fun_Time:DemoService")
            (DEST Ziel)
)
(COMPLETE 100)

(MESSAGE Bis Bald)
(EXIT (QUIET))